home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / IDEAL BODY WEIGHT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  10KB  |  110 lines
  1. 1  HOME : INPUT "DO YOU WANT INFORMATION REGARDING THIS  PROGRAM (Y/N)? ";FF$
  2. 2  IF FF$ = "N"  THEN  GOTO 20
  3. 3  PRINT "THIS PROGRAM TELLS YOU WHAT YOU SHOULD": PRINT "WEIGH BASED ON DATA ADAPTED FROM THE": PRINT "BOOK (WEIGHTS IN THIS BOOK WERE SUB-": PRINT "TRACTED BY 3 TO GIVE WEIGHTS IN BED": PRINT "CLOTHING, WHICH WERE USED IN THIS": PRINT "PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-
  4. 4  PRINT "TION', (13TH EDITION), BY C.H.ROBINSON,": PRINT "1972, P.848 (MACMILLAN). HEIGHT LIMIT-": PRINT "ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;": PRINT "FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL": PRINT "WEIGHTS GIVEN ARE FOR BED CLOTHING AND": PRINT "ARE FOR MEN AND WOMEN OF AGES
  5. 5  PRINT "25 AND OVER (FOR GIRLS 18-25, SUBTRACT": PRINT "1 POUND FOR EACH YEAR UNDER 25)."
  6. 6  PRINT : PRINT : INPUT "TOUCH 'RETURN' TO CONTINUE!";A$
  7. 7  HOME : PRINT "BESIDES IDEAL WEIGHTS, THIS PROGRAM": PRINT "ESTIMATES OBESITY, BODY FAT, BODY SUR-": PRINT "AREA, AND TOTAL BODY WATER. THESE ARE": PRINT "APPLICABLE TO THOSE OVER THE AGE OF 16.": PRINT "GENERALLY, THE % TOTAL BODY WATER
  8. 8  PRINT "IS LOWER IN FEMALES THAN IN MALES."
  9. 10  PRINT "FURTHER, THE % OF WATER IN LEAN PERSONS IS HIGHER THAN IN OBESE PERSONS. ABOUT": PRINT "55-60% OF THE BODY WEIGHT IS WATER.": PRINT "A DEVIATION OF NOT MORE THAN 10% ABOVE": PRINT "OR BELOW THE DESIRABLE WEIGHT FOR AN"
  10. 11  PRINT "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"
  11. 12  PRINT "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-": PRINT "LY APPLIED TO PERSONS WHO ARE 10-20%": PRINT "ABOVE THE DESIRABLE WEIGHT. 'OBESITY' ISAPPLIED TO PERSONS WHO ARE ABOUT 20% OR": PRINT "MORE OVERWEIGHT."
  12. 13  PRINT : PRINT : INPUT "TOUCH 'RETURN' TO CONTINUE!";A$
  13. 14  HOME : PRINT "IN THIS PROGRAM, OBESITY IS DETERMINED": PRINT "BY A CRITICAL OBESITY INDEX BASED UPON": PRINT "'QUETELET'S INDEX' (QI). THIS CRITICAL": PRINT "INDEX IS REACHED WHEN THE PERSON'S": PRINT "WEIGHT IS ABOUT 18% ABOVE THE MAXIMUM"
  14. 15  PRINT "IDEAL WEIGHT.  ALSO QI IS USED TO"
  15. 16  PRINT "ESTIMATE BODY FAT (BF). THE BF VIA QI ISIN GOOD AGREEMENT WITH THE VALUE FROM": PRINT "TOTAL BODY WATER USING: %BF=100-(137*WT.WATER/BODY WT.)."
  16. 17  PRINT : PRINT : PRINT "MORE REFERENCES: HUME & WEYERS, J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"
  17. 18  PRINT "(A DHSS/MRC REPORT) HER MAJESTIE'S": PRINT "STATIONERY OFFICE, LONDON, 1976 (ISBN": PRINT "0 11 450034 7). REMARKS ARE TO BE FOUND IN LINE #'S 25, 96, 100, 132, 138, 143, 148, 162, 200,490."
  18. 19  PRINT : PRINT : INPUT "TOUCH 'RETURN' TO CONTINUE!";A$
  19. 20  PRINT : PRINT 
  20. 25  DIM W$(30,5): REM  THIS IS AN ARRAY FOR HEIGHT & WEIGHTS CORRESPONDING TO SMALL, MEDIUM, & LARGE BODY FRAMES
  21. 30  FOR J = 1 TO 30
  22. 40  FOR K = 1 TO 4
  23. 50  READ W$(J,K)
  24. 60  IF W$(J,1) = "ZERO"  THEN J = J -1: GOTO 80
  25. 70  NEXT K,J
  26. 80  HOME : INPUT "LIST YOUR SEX (FEMALE=1; MALE=2) ";S
  27. 81  INPUT "WHAT IS YOUR HEIGHT TO NEAREST INCH     (E.G. 5-10) (NO SHOES) ";H$
  28. 82  INPUT "WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ";F
  29. 83  INPUT "WHAT IS YOUR WEIGHT (IN POUNDS WITH BED CLOTHING)? ";WT
  30. 85 PW = WT
  31. 90  ON S GOTO 95,195
  32. 95  PRINT : PRINT "--------------------------------------":TV =  VAL( MID$ (H$,1,1)) *12 + VAL( MID$ (H$,3))
  33. 96  REM  LINE #'S 97-99 & 137 EXPRESS THE PROGRAM LIMITATIONS FOR FEMALES WHILE LINE #'S 197-199 & 237 EXPRESS THE PROGRAM LIMITATIONS FOR MALES
  34. 97  IF F < = 1  AND TV <60  THEN  PRINT : PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL' AND  YOUR HEIGHT IS LESS THAN 5-0, THIS PROG-RAM CAN OFFER YOU NO INFORMATION!": GOTO 180
  35. 98  IF F < = 1  AND TV >70  THEN  PRINT : PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL' AND  YOUR HEIGHT IS MORE THAN 5-10, THIS     PROGRAM CAN OFFER YOU NO INFORMATION!": GOTO 180
  36. 99  IF TV <60  OR TV >70  THEN  PRINT : PRINT "BECAUSE OF HEIGHT LIMITATIONS, THIS     PROGRAM CANNOT GIVE YOU YOUR IDEAL      WEIGHT!": GOTO 140
  37. 100  FOR W = 1 TO 11: REM  THIS IS FOR FEMALES ONLY
  38. 110 L = 1
  39. 120  IF W$(W,L) = H$  THEN  PRINT : PRINT "YOUR IDEAL WEIGHT=";W$(W,F +1);: GOTO 133
  40. 130  NEXT 
  41. 132  REM  LINE#'S 133 & 233 DETERMINE THE % THAT YOUR WEIGHT EXCEEDS YOUR MAXIMUM IDEAL WEIGHT
  42. 133 SS =  VAL( MID$ (W$(W,F +1),5)): IF SS <PW  THEN  PRINT "---YOU ARE " INT(((PW -SS) *100/SS) *10 +.5)/10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT. ";
  43. 134 GG =  INT(((PW -SS) *100/SS) *10 +.5)/10: IF GG >10  AND GG <18  THEN  PRINT "(YOU ARE CONSIDERED OVERWEIGHT)!"
  44. 136  PRINT 
  45. 137  IF F < = 1  THEN  PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC. DOES NOT APPLY TO YOU!": GOTO 180
  46. 138  REM  IN LINE #'S 140 & 240, 'H' DENOTES HEIGHT IN METERS & 'WT' WEIGHT IN KILOGRAMS OF FEMALES AND MALES, RESPECTIVELY
  47. 140 H =  VAL( MID$ (H$,1,1)) *12 + VAL( MID$ (H$,3)):H = H *.0254:WT = WT *.45359
  48. 143  REM  IN LINE #'S 145 & 245, 'Q' DENOTES 'QUETELET'S INDEX' WHICH IS USED FOR FEMALES AND MALES RESPECTIVELY, TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESE
  49. 145 QI = WT/(H *H)
  50. 148  REM  LINE#'S 150- 160 AND 250-260 DETERMINE WHETHER OBESITY EXISTS FOR FEMALES AND MALES RESPECTIVELY
  51. 150  IF F = 2  AND QI >27.0  THEN  PRINT "YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!": GOTO 165
  52. 155  IF F = 3  AND QI >29.5  THEN  PRINT "YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!": GOTO 165
  53. 160  PRINT : PRINT "YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
  54. 162  REM    LINE#'S 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN, RESPECTIVELY; #'S 170 & 270 ALLOW DETERMINATION OF BODY SURFACE AREAS FOR WOMEN & MEN, RESPECTIVELY; #'S 175 & 275 ALLOW DETERMINATION OF BODY WATER IN WOMEN 
  55. 163  REM   AND MEN, RESPECTIVELY
  56. 165 WF = 1.48 *QI -7: PRINT : PRINT "YOUR BODY FAT = " INT(WF *10 +.5)/10" %"
  57. 170 BS = (.007185 *WT ^.425 *(H *100) ^.725): PRINT : PRINT "YOUR BODY SURFACE AREA IS CA. " INT(BS *100 +.5)/100" SQ. METERS (OR " INT((BS *10.764) *10 +.5)/10" SQ. FT.)"
  58. 175 WW = .183809 *WT +34.4547 *H -35.270121
  59. 177  PRINT : PRINT "YOUR TOTAL BODY WATER IS CA. " INT(WW *10 +.5)/10" LITERS (CA. " INT((WW *1000/453.6) *10 +.5)/10" LBS. WATER---OR " INT((WW *1E02/WT) *10 +.5)/10"% BODY WT.)"
  60. 180  PRINT "-------------------------------------": GOTO 1100
  61. 195  PRINT : PRINT "--------------------------------------":TV =  VAL( MID$ (H$,1,1)) *12 + VAL( MID$ (H$,3))
  62. 197  IF F < = 1  AND TV <64  THEN  PRINT : PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS LESS THAN 5-4, THIS PROGRAM CAN OFFER YOU NO INFORMATION!": GOTO 280
  63. 198  IF F < = 1  AND TV >95  THEN  PRINT : PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS MORE THAN 6-3, THIS PROGRAM CAN OFFER YOU NO INFORMATION!": GOTO 280
  64. 199  IF TV <64  OR TV >75  THEN  PRINT : PRINT "BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!": GOTO 240
  65. 200  FOR W = 12 TO 23: REM  THIS IS FOR MALES ONLY
  66. 210 L = 1
  67. 220  IF W$(W,L) = H$  THEN  PRINT : PRINT "YOUR IDEAL WEIGHT = ";W$(W,F +1);: GOTO 233
  68. 230  NEXT 
  69. 233 SS =  VAL( MID$ (W$(W,F +1),5)): IF SS <PW  THEN  PRINT "---YOU ARE " INT(((PW -SS) *100/SS) *10 +.5)/10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT ";
  70. 234 GG =  INT(((PW -SS) *100/SS) *10 +.5)/10: IF GG >10  AND GG <18  THEN  PRINT "(YOU ARE CONSIDERED OVERWEIGHT)!"
  71. 236  PRINT 
  72. 237  IF F < = 1  THEN  PRINT : PRINT "BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC DOES NOT APPLY TO YOU!": GOTO 280
  73. 240 H =  VAL( MID$ (H$,1,1)) *12 + VAL( MID$ (H$,3)):H = H *.0254:WT = WT *.45359
  74. 245 QI = WT/(H *H)
  75. 250  IF F = 2  AND QI >27.5  THEN  PRINT : PRINT "YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!": GOTO 265
  76. 255  IF F = 3  AND QI >29.9  THEN  PRINT : PRINT "YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!": GOTO 265
  77. 260  PRINT : PRINT "YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
  78. 265 MF = 1.281 *QI -10.13: PRINT : PRINT "YOUR BODY FAT = " INT(MF *10 +.5)/10" %"
  79. 270 BS = (.007185 *WT ^.425 *(H *100) ^.725): PRINT : PRINT "YOUR BODY SURFACE AREA IS ABOUT " INT(BS *100 +.5)/100" SQ. METERS (OR " INT((BS *10.764) *10 +.5)/10" SQ. FEET)"
  80. 275 MW = .296785 *WT +19.4786 *H -14.012934
  81. 277  PRINT : PRINT "YOUR TOTAL BODY WATER IS ABOUT " INT(MW *10 +.5)/10" LITERS (ABOUT " INT((MW *1E02/WT) *10 +.5)/10" % BODY WEIGHT)"
  82. 280  PRINT "-------------------------------------": GOTO 1100
  83. 490  REM  LINE #'S 500-600 CONTAIN WEIGHT DATA FOR FEMALES ONLY WHILE #'S 750-860 CONTAIN HEIGHT WEIGHT DATA FOR MALES ONLY
  84. 500  DATA  "5-0", "99-107","104-116","112-128"
  85. 510  DATA  "5-1","102-110",!107-119","115-131"
  86. 520  DATA  "5-2","105-113","110-123","118-135"
  87. 530  DATA  "5-3","108-116","113-127","122-139"
  88. 540  DATA  "5-4","111-120","117-132","126-143"
  89. 550  DATA  "5-5","115-124","121-136","130-147"
  90. 560  DATA  "5-6","119-128","125-140","134-151"
  91. 570  DATA  "5-7","123-132","129-144","138-155"
  92. 580  DATA  "5-8","127-137","133-148","142-160"
  93. 590  DATA  "5-9","131-141","137-152","146-165"
  94. 600  DATA  "5-10","135-145","141-156","150-170"
  95. 750  DATA  "5-4","118-126","124-136","132-149"
  96. 760  DATA  "5-5","121-130","127-140","135-153"
  97. 770  DATA  "5-6","125-134","131-144","139-158"
  98. 780  DATA  "5-7","129-138","135-149","144-163"
  99. 790  DATA  "5-8","133-142","139-153","148-167"
  100. 800  DATA  "5-9","137-147","143-157","152-171"
  101. 810  DATA  "5-10","141-151","147-162","156-176"
  102. 820  DATA  "5-11","145-155","151-167","161-181"  
  103. 830  DATA  "6-0","149-159","155-172","165-186"
  104. 840  DATA  "6-1","153-164","159-177","170-191"
  105. 850  DATA  "6-2","157-168","164-182","175-196"
  106. 860  DATA  "6-3","161-172","169-187","179-187"
  107. 1000  DATA  ZERO
  108. 1100  INPUT "DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$
  109. 1110  IF EV$ = "Y"  THEN  GOTO 80
  110. 1120  HOME : END